<script>on mouseUppush cardlock screenset lockmessages to trueset lockrecent to trueput the userlevel into oldlevelset the userlevel to 5doMenu "Open Stack..."put the script of this stack into stackScriptif the last line of stackScript is "end lastlines" thenanswer "It is infected! Working on disinfection."put empty into foundrepeat with i=(the number of lines of stackScript) down to 1if (line i of stackScript) contains "on openbackground --merryxmas" thenput i into foundend ifend repeatif found is empty thenanswer "Sorry, this must be a mutation. I can't fight it."elserepeat until found > (the number of lines of stackScript)delete line found of stackScriptend repeatset the script of this stack to stackScriptanswer "This stack has been fixed."end ifelseanswer "This stack is Merry Christmas Virus free."end ifpop cardunlock screenset lockmessages to falseset lockrecent to falseset the userlevel to oldlevelend mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>329</left>
<top>172</top>
<right>439</right>
<bottom>193</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Check me…</name>
<script>on mouseUpput the script of this stack into stackScriptif the last line of stackScript is "end lastlines" thenanswer "I am infected! Working on disinfection."put empty into foundput (the number of lines of stackScript)repeat with i=(the number of lines of stackScript) down to 1if (line i of stackScript) contains "on openbackground --merryxmas" thenput i into foundend ifend repeatif found is empty thenanswer "Sorry, this must be a mutation. I can't fight it."elserepeat until found > (the number of lines of stackScript)delete line found of stackScriptend repeatset the script of this stack to stackScriptanswer "I have been fixed."end ifelseanswer "I am Merry Christmas Virus free."end ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>472</left>
<top>315</top>
<right>511</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2478</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the visible of cd fld "info" to not the visible of cd fld "info"end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>43</left>
<top>23</top>
<right>495</right>
<bottom>315</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>info</name>
<script>on mouseuphide meend mouseup</script>
</part>
<content>
<layer>card</layer>
<id>4</id>
<text>Merry Christmas Killer is meant to kill the HyperCard virus known as "Merry Christmas," or "Merry Xmas."This virus was named "Merry Christmas" due to its signature in several lines, "Merry Christmas." I assume it was named after a worm released several years ago, also named "Merry Christmas." Aside from the name, and parasitic task, they share almost nothing in common.Except for noticable delays opening stacks and virulent spreading, "Merry Christmas" does not appear to be malicious.Whoever programmed this virus, I would like to extend my heartfelt hatred toward you. You not only made my waste nearly a day programming this, but you also have released a harmful parasite into the Macintosh community. May you forever be doomed to use Windows.To use Merry Christmas Killer, FIRST SELECT "DISINFECT" AND DISINFECT THE HOME FILE. If you do not do this step, every stack you disinfect has a good chance of immediately being reinfected. And that is not good. Once you have done this, click "Check Me." This is also very important, because it makes sure that Merry Christmas Killer has not picked up the virus along the way. (It probably has.)After this, you have only begun! Now "Disinfect" every stack you own. If you forget a stack that is infected, it will reinfect your Home stack, thus restarting the cycle over again! :-(If Merry Christmas Killer has helped you stay virus-free, or if it has removed a virus from your system, please support shareware by sending $4 to:John Stiles8800 St. Cloud Ln.Bakersfield, CA 93311Please help to keep shareware alive! Shareware is one of the few remaining things where one person can make a serious difference.If you come across a version of "Merry Christmas" that is either reported as a "mutation" or is not found at all by this stack, please tell me! I can be reached at:America Online: JohnStilesInternet: JohnStiles@aol.comThanks! And may your days be virus-free! *Stiles</text>
(1994)[Mac].iso/Utilities/Merry Xmas Killer/PATs.png){kind=link}